home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / CHR$ POKER.bas < prev    next >
BASIC Source File  |  2000-01-01  |  2KB  |  24 lines
  1. 10  REM    <CTRL-M>==============<CTRL-M>CHR$ POKER<CTRL-M>BY BEAGLE BROS<CTRL-M>==============
  2. 20  DIM V(24):SP = 175: SPEED= SP: FOR I = 1 TO 24: READ A:V(I) = A: NEXT :Q$ =  CHR$(34)
  3. 30  HOME : PRINT "----------": PRINT "CHR$ POKER": PRINT "----------  
  4. 40  VTAB 5: CALL  -958: INPUT "ENTER VTAB (1-24): ";V: IF V <1  OR V >24  THEN 40
  5. 50  VTAB 6: CALL  -958: INPUT "ENTER HTAB (1-40): ";H: IF H <1  OR H >40  THEN 50
  6. 52  VTAB 5: CALL  -958: PRINT "VTAB ";V;":";
  7. 55  PRINT "HTAB ";H;":"
  8. 60 P = V(V) +H -1: VTAB 7: CALL  -958
  9. 70  SPEED= 255: VTAB 10: PRINT "  CTRL-L = _": PRINT "  CTRL-Z = \": PRINT "  CTRL-B = [": SPEED= SP
  10. 80  VTAB 8: HTAB 1: CALL  -868: PRINT "CHARACTER TO POKE ONTO SCREEN: ";: GET C$: IF C$ =  CHR$(12)  THEN C$ = "_"
  11. 90  IF C$ =  CHR$(26)  THEN C$ = "\"
  12. 100  IF C$ =  CHR$(2)  THEN C$ = "["
  13. 102  IF C$ <" "  THEN 80
  14. 104  PRINT C$: FOR I = 1 TO 700: NEXT 
  15. 105  VTAB 7: HTAB 1: CALL  -958: PRINT "PRINT ";Q$;C$;Q$
  16. 120  VTAB 9: CALL  -958: PRINT "OR, PRINT CHR$("; ASC(C$);"), OR...": SPEED= 255: PRINT "----------------------------------------";: SPEED= SP
  17. 125  VTAB 11: NORMAL : PRINT C$;" = POKE ";P;","; PEEK(1320);: HTAB 19: PRINT "(NORMAL)"
  18. 130  IF C$ <"`"  THEN  VTAB 12: INVERSE : PRINT C$;: NORMAL : PRINT " = POKE ";P;","; PEEK(1448);: HTAB 19: PRINT "(INVERSE)"
  19. 135  IF C$ <"`"  THEN  VTAB 13: FLASH : PRINT C$;: NORMAL : PRINT " = POKE ";P;","; PEEK(1576);: HTAB 19: PRINT "(FLASH)"
  20. 140  SPEED= 255: PRINT "----------------------------------------": SPEED= SP
  21. 180  POKE  -16368,0: VTAB 17: HTAB 1: CALL  -958: PRINT "HIT ANY KEY TO CONTINUE, OR Q TO QUIT.";: GET A$: IF A$ = "Q"  OR A$ = "q"  THEN  FOR I = 39 TO 1  STEP  -1: VTAB 17: HTAB I: PRINT "]";: FLASH : PRINT " ";: NORMAL : CALL  -958: NEXT : SPEED= 255: PRINT : VTAB 16: END 
  22. 190  GOTO 30
  23. 200  DATA 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000
  24. 65535  REM  <CTRL-M>==============<CTRL-M>CHR$ POKER<CTRL-M>BY BEAGLE BROS<CTRL-M>==============